|
|  Russite Patient Pairs
|  Ecrit par Ph. DONSBACK
|
|
SCRIPT_TYPE 1
|
BEGIN "Patient Pairs"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  1, 52
  WIDTH  13 * CW
  HEIGHT 1 * CH + 3 * COH

  ZeroToWin 52 - CARDSIN$2

| Hiden Foundations

  FOR stack = 1 TO 13
    FOUNDATION
      X 0 - CW 
      Y 0 - CH
      First stack, stack
      JoinOffset 0
      Flags Join____ DeepCheck Append2Only
      ID 2
    END
  END

| Tableau

  FOR stack = 0 TO 12
    STACK
      X stack * CW
      Y 0
      DEAL 4,4
      DRAGUPTO 2
      First 0
      JoinOffset 0
      FLAGS ClickFly AppendOneOnly Join____ Drag____
      ID 1
    END
  END

END
